home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / AX9624.T next >
Text File  |  1991-10-11  |  2KB  |  60 lines
  1.     :: For Microcom AX9624
  2. dialnum        if S>19200 sp 19200
  3.     if js2,mnp sp 19200
  4.     gosub waketb        :: get modem to respond
  5.     pat; pat 9 OK
  6.     if js2,mnp put "ATX4\\V1\\J0\\A3\\N3\\Q3\r"; wait -f2
  7.     if js2,mnp_s put "ATX4\\V1\\J0\\A3\\N3\\Q1\r"; wait -f2
  8.     put "AT"
  9.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  10.     if "%s3>8" put "S7=70"        : longer wait if long distance
  11.     put "Q0S10=10V1\r"; wait -f2
  12.     :: put "ATS6=3S8=1S0=0\r" wait -f2
  13.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  14.     if %alds if ps3,0 putw "ATS8=10\r"
  15.     put "%mprefix";  put "%s3%alds";  dis -Q
  16.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  17.     put "\r";  dis -t
  18.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  19.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  20.     pat 5l "ECT 12"; pat 6l "ECT 24"; pat 7l "CONNECT FAST"
  21.     pat 8 "NO DIALTONE"; pat 10l "CONNECT 300"
  22.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  23.     pat 13 "VOICE"; pat 14 "NO ANS"; pat 15l "CONNECT 4800"
  24.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  25.     wait -f72
  26.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  27.     if "n||8||9||2||3||4||13||14" goto sorry
  28.     dis -d
  29.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  30.     if !%s1 goto ns1
  31.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  32.     if !Js1,s handshake slow; lput "Handshake SLOW: "
  33.     echo "Speed Locked"; goto mm2end
  34. ns1:    if "hARQ" echo "MNP Connected";  handshake both; goto arq
  35.     if "hREL" echo "MNP Connected";  handshake both; goto arq;
  36.     if "hERROR-CONTROL" echo "HV Connected";  handshake both; goto arq
  37.     if js2,mnp set s2 ""
  38. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  39.     if "1||10" sp 300 goto mm2end
  40.     if 5 sp 1200 goto mm2end
  41.     if 6 sp 2400 goto mm2end
  42.     if "du&&7" sp 9600 echo "9600 bps"; goto mm2end
  43.     if "7||12" sp 19200; goto mm2end
  44.     if 11 sp 9600; goto mm2end
  45. sorry:    echo "No Connect Message Detected."
  46.     return
  47. mm2end:    set s9 "y"
  48.         if js1,mnp sleep 15    : for gliches in MM224E
  49.     return
  50.  
  51.  
  52.     : initax9624 inits a Microcom AX/9624c MNP Class 6 modem    
  53. initmodem    bye;  sleep 20;  speed 2400;  pat; pat 0 OK; pat 1 ERROR
  54.     set s1 "\\Q1"; if dF set s1 "\\Q3"
  55.     put "AT &F V1 \\V1 &D3 Q0 E1 &C1 \\N0 X4 %s1 S0=0 S7=45\r"; wait -f5
  56.     if 1 echo "ERROR: Reset the modem and retry this script"; abort
  57.     put "AT &W\r"; wait -f5
  58.     return
  59.  
  60.